Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/winontop/palette.frm

Text File | 1995-05-02 | 5KB | 184 lines

VERSION 2.00
Begin Form frmPalette
   BackColor       =   &H00C0C0C0&
   Caption         =   "Palette"
   ClientHeight    =   2295
   ClientLeft      =   1635
   ClientTop       =   2490
   ClientWidth     =   1935
   ControlBox      =   0   'False
   Height          =   2700
   Left            =   1575
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2295
   ScaleWidth      =   1935
   Top             =   2145
   Width           =   2055
   Begin CommandButton cmdQuit
      Caption         =   "Quit"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   120
      TabIndex        =   7
      Top             =   1800
      Width           =   1695
   End
   Begin CommandButton cmdDataCntrl
      Caption         =   ">|"
      Enabled         =   0   'False
      Height          =   375
      Index           =   3
      Left            =   1320
      TabIndex        =   5
      Top             =   1080
      Width           =   495
   End
   Begin CommandButton cmdDataCntrl
      Caption         =   ">"
      Enabled         =   0   'False
      Height          =   375
      Index           =   2
      Left            =   960
      TabIndex        =   4
      Top             =   1080
      Width           =   375
   End
   Begin CommandButton cmdDataCntrl
      Caption         =   "<"
      Enabled         =   0   'False
      Height          =   375
      Index           =   1
      Left            =   600
      TabIndex        =   3
      Top             =   1080
      Width           =   375
   End
   Begin CommandButton cmdDataCntrl
      Caption         =   "|<"
      Enabled         =   0   'False
      Height          =   375
      Index           =   0
      Left            =   120
      TabIndex        =   2
      Top             =   1080
      Width           =   495
   End
   Begin CommandButton cmdCloseData
      Caption         =   "Close Data Window"
      Enabled         =   0   'False
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   1695
   End
   Begin CommandButton cmdOpenData
      Caption         =   "Open Data Window"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1695
   End
   Begin Label lblMove
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   195
      Left            =   0
      TabIndex        =   6
      Top             =   1560
      Width           =   1935
   End
End
Option Explicit

Sub cmdCloseData_Click ()
    frmData.Hide
    EnableButtons False
End Sub

Sub cmdDataCntrl_Click (Index As Integer)
    Select Case Index
        Case 0
            frmData.lblMove.Caption = "Moving to First Record"
        Case 1
            frmData.lblMove.Caption = "Moving to Previous Record"
        Case 2
            frmData.lblMove.Caption = "Moving to Next Record"
        Case 3
            frmData.lblMove.Caption = "Moving to Last Record"
    End Select
End Sub

Sub cmdDataCntrl_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Index
        Case 0
            lblMove.Caption = "Move to First Record"
        Case 1
            lblMove.Caption = "Move to Previous Record"
        Case 2
            lblMove.Caption = "Move to Next Record"
        Case 3
            lblMove.Caption = "Move to Last Record"
    End Select
End Sub

Sub cmdEnterData_Click ()

End Sub

Sub cmdOpenData_Click ()
    frmData.lblMove.Caption = ""
    frmData.Show
    EnableButtons True
End Sub

Sub cmdQuit_Click ()
    End
End Sub

Sub Form_Load ()
    'Load the Data Entry form so redraws will be faster
    Load frmData
End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblMove.Caption = ""
End Sub

Sub Form_Resize ()
    Dim success%
    'This statement will make the window NOT the topmost
    'success% = SetWindowPos(Form1.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)

    'This statement will make the window the topmost
    success% = SetWindowPos(frmPalette.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub